home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / rfix0704.zip / RSB30704.MRG < prev    next >
Text File  |  1992-07-04  |  4KB  |  102 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\174\RBBSSUB3.BAS to produce D:\SOURCE\RBBSSUB3.BAS
  3. * C:\174\RBBSSUB3.BAS:  Date 6-20-1992  Size 129071 bytes
  4. * ------------[ Created 07-04-1992 20:37:06 ]------------
  5. * REPLACING old line(s) by new
  6. 57100 IF INSTR(ZOutTxt$,"LOGON DENIED") OR INSTR(ZOutTxt$,"Lvl ")THEN _
  7.          IF NOT ZSysOp THEN _
  8.             RETURN
  9.       IF ZJumpSearching THEN _
  10.          ZWasDF$ = ZOutTxt$ : _
  11.          CALL AllCaps (ZWasDF$) : _
  12.          IF INSTR(ZWasDF$,ZJumpTo$) = 0 THEN _
  13.             RETURN _
  14.          ELSE CALL CheckColor (ZOutTxt$,ZJumpTo$,"") : _
  15.               ZJumpSearching = ZFalse
  16.       ZSubParm = 5
  17.       CALL TPut
  18.       WasX = 1
  19.       CALL AskMore ("",ZTrue,ZTrue,WasX,ZFalse)
  20. * ------[ first line different ]------
  21.       IF ZSubParm = -1 THEN _                                        ' RH070402
  22.          GOTO 57102 _                                                ' RH070402
  23.       ELSE IF ZNo THEN _                                             ' RH070402
  24.          GOTO 57101                                                  ' RH070402
  25.       RETURN
  26. * REPLACING old line(s) by new
  27. 57102 ZJumpSupported = ZFalse
  28. * ------[ first line different ]------
  29.       IF OrigCal$ <> ZCallersFile$ THEN _                            ' RH070401
  30.          ZCallersFile$ = OrigCal$ : _
  31.          CALL SetCall
  32.       END SUB
  33. * REPLACING old line(s) by new
  34. 58181 MarkingFiles = ZFalse
  35.       IF (WasX$ = "D" OR WasX$ = "M") THEN IF CanDnld THEN _
  36.          MarkingFiles = (WasX$ = "M") : _
  37. * ------[ first line different ]------
  38.          CALL AskItems ("DM",WasX$,ZTrue,"file",ZMarkedFiles$) : _   ' KG062401
  39.          IF ZWasQ = 0 THEN _
  40.             GOTO 58183
  41.       IF WasX$ = "*" THEN IF ZPersonalDnld THEN _
  42.          GOTO 58193
  43. * REPLACING old line(s) by new
  44. 58188 IF ProcessedNew OR MarkingFiles OR NOT ZListOnly THEN _
  45.          ProcessedNew = ZFalse : _
  46.          RETURN
  47.       ZUserIn$(0) = ""
  48.       WasI = ZAnsIndex              ' check whether in dir
  49.       WHILE WasI <= ZLastIndex
  50.          CALL AraAllCaps (ZUserIn$(),WasI)
  51.          ZWasZ$ = ZUserIn$(WasI)
  52.          CALL UnMarkItems (ZMarkedFiles$,WasI,ZLastIndex,WasX,ZTrue)
  53.          Temp$ = ZUserIn$(WasI)
  54. * ------[ first line different ]------
  55.          CALL AllCaps (Temp$)                                        ' KG062401
  56. 'print "wasi=";wasi;" temp$=<";temp$;"> Zdef=<";zdefaultxfer$;">"
  57.          IsProto = (LEN(Temp$) = 1 AND _
  58.                     INSTR(ZDefaultXfer$,Temp$) > 0)
  59.          ZOK = IsProto
  60.          WasJ = LastRec + 1
  61.          WasX = INSTR(Temp$,".")
  62.          AltTemp$ = ""
  63.          IF NOT IsProto THEN _
  64.             IF WasX = 0 THEN _
  65.                AltTemp$ = Temp$ + "." + ZDefaultExtension$ _
  66.             ELSE IF WasX = LEN(Temp$) THEN _
  67.                     AltTemp$ = LEFT$(Temp$,WasX-1)
  68. 'print "58188 b4 while zok=";zok;" wasj=";wasj;" looking for <";temp$;">"
  69.          WHILE WasJ > 1 AND NOT ZOK
  70.             WasJ = WasJ - 1
  71.             GET #2,WasJ
  72.             GOSUB 58191
  73. 'print "bk 58191 canget=";catget;" ptp<";parttoprint$;">";:input xx$
  74.             IF CanGet THEN _
  75.                MID$(PartToPrint$,13,1) = " " : _
  76.                WasX$ = LEFT$(PartToPrint$,INSTR(PartToPrint$," ") - 1) : _
  77.                ZOK = (Temp$ = WasX$) : _
  78.                IF NOT ZOK THEN _
  79.                   IF AltTemp$ <> "" THEN _
  80.                      ZOK = (AltTemp$ = WasX$)
  81.          WEND
  82. 'print "58188 aft while zok=";zok;" wasj=";wasj;" looking for <";temp$;">":input xxx$
  83.          IF ZOK THEN _
  84.             GOSUB 58189 : _
  85.             IF ZOK OR IsProto THEN _
  86.                WasX$ = MID$(STR$(WasJ),2) : _
  87.                ZUserIn$(0) = ZUserIn$(0) + _
  88.                        WasX$ + _
  89.                        SPACE$(5 - LEN(WasX$))
  90.          IF NOT ZOK AND NOT IsProto THEN _
  91.             CALL QuickTPut1 (ZWasZ$ + " not found - omitted") : _
  92.             FOR WasK = WasI + 1 TO ZLastIndex : _
  93.                ZUserIn$(WasK - 1) = ZUserIn$(WasK) : _
  94.             NEXT : _
  95.             ZLastIndex = ZLastIndex - 1 : _
  96.             WasI = WasI - 1
  97.          WasI = WasI + 1
  98.       WEND
  99.       ZWasQ = ZLastIndex
  100. 'print "end 58188 zlastindex=";zlastindex;" zok=";zok
  101.       RETURN
  102.